home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 54.zip / BS part 54 / FinalCopyII.adf / HardDrive_Install / HD_Install < prev   
Encoding:
Text File  |  1992-09-28  |  5.8 KB  |  222 lines
  1. (set is_update 0)
  2. (complete 0)
  3.  
  4. (set FC_dest
  5.     (askdir
  6.         (prompt "In which disk or drawer should Final Copy be installed?")
  7.         (help "The installation utility will create a drawer named "
  8.             "\"FinalCopy_II\" in this directory.  All \"Final Copy\" "
  9.             "files will be placed inside that directory. \n\n"
  10.             " Tip for advanced users:\n "
  11.             "  \"Final Copy\" may be moved to another directory as long as "
  12.             " the sub-directories:\n"
  13.             "   FCFiles, FCFonts, FCLibs, FCThes, and FCSpell\n"
  14.             " are moved (as subdirectories) to the program's new location")
  15.         (default @default-dest)
  16.     )
  17. )
  18.  
  19. ; the FCSpell directory is a tell-tale sign that FC_II is already installed here
  20. (if (exists (tackon FC_dest "FCSpell"))
  21.     (set is_update 1)
  22. )
  23.  
  24. (set disk_space (getdiskspace FC_dest))
  25.  
  26. (if (AND (< disk_space 2200000) (NOT is_update))
  27.   (
  28.     (set answer1
  29.         (askbool
  30.             (prompt "There may not be enough room available on "
  31.                 "this drive to install \"Final Copy\".  Do you "
  32.                 "wish to continue?")
  33.             (help "Final Copy needs approximately 2.5 Megabytes of "
  34.                 "disk space for a full installation.  If Final Copy "
  35.                 "is already installed on this partition or if you "
  36.                 "don't plan on using the additional outline fonts on the "
  37.                 "\"FCMoreFonts\" disk, you may wish to continue.  Otherwise, "
  38.                 "press ABORT or NO now and either free some space on this "
  39.                 "partition or select a different partition for the "
  40.                 "installation.")
  41.         )
  42.     )
  43.     (if (NOT answer1)
  44.         (if (= @user-level 0)
  45.             (abort "Final Copy needs approximately 2.5 Megabytes of "
  46.                 "disk space for a full installation.  The Volume \""
  47.                 @default-dest
  48.                 "\" does not have enough space available. You may override this "
  49.                 "warning in Intermediate or Expert mode.")
  50.             (abort "Final Copy installation cancelled.")
  51.         )
  52.     )
  53.   )
  54. )
  55.  
  56. ; get the program disk
  57. (askdisk
  58.     (prompt "Please insert the disk labeled \"FCProgram_II\"" )
  59.     (help    "The Final Copy program will be copied "
  60.             "from the \"FCProgram_II\" Disk on to your system." )
  61.     (dest "FCProgram_II" )
  62. )
  63.  
  64. ; Make dest directory with icon
  65. (makedir (tackon FC_dest "FinalCopy_II") (infos))
  66.  
  67. ; now, we want everything to be copied into this sub-dir
  68. (set FC_dest (tackon FC_dest "FinalCopy_II"))
  69. (set @default-dest FC_dest)
  70.  
  71. ;copy the Final Copy drawer over
  72. (copyfiles
  73.     (source "FCProgram_II:")
  74.     (dest FC_dest) (pattern "FinalCopy_II#?") (infos)
  75. )
  76.  
  77. ;copy the SampleMacros drawer over
  78. (copyfiles
  79.     (source "FCProgram_II:")
  80.     (dest FC_dest) (pattern "SampleMacros#?") (infos)
  81. )
  82.  
  83. ;copy the SampleDocs drawer over
  84. (copyfiles
  85.     (source "FCProgram_II:")
  86.     (dest FC_dest) (pattern "SampleDocs#?") (infos)
  87. )
  88.  
  89. ;copy the More program to the hard drive so everyone is
  90. ;guaranteed to have it.
  91. (copyfiles
  92.     (source "FCProgram_II:More")
  93.     (dest FC_dest)
  94. )
  95.  
  96. (tackon FC_dest "FCSpell")
  97.  
  98. (complete 20)
  99.  
  100. ; Check if we are running 2.0
  101. (if (< (/ (getversion) 65536) 37)
  102.     (    ; get system 1.3 disk
  103.         (askdisk
  104.             (prompt "Please insert the disk labeled \"FCSystem_1.3\""  )
  105.             (help    "The Final Copy program and other tools will be copied "
  106.                     "from the \"" sys_disk "\" Disk on to your system." )
  107.             (dest "FCSystem_1.3")
  108.         )
  109.         (copyfiles
  110.             (source "FCSystem_1.3:")
  111.             (dest FC_dest) (pattern "FC#?") (infos)
  112.         )
  113.     )
  114.     (    ; get system 2.0 disk
  115.         (askdisk
  116.             (prompt "Please insert the disk labeled \"FCSystem_2.0\""  )
  117.             (help    "The Final Copy program and other tools will be copied "
  118.                     "from the \"" sys_disk "\" Disk on to your system." )
  119.             (dest "FCSystem_2.0")
  120.         )
  121.         (copyfiles
  122.             (source "FCSystem_2.0:")
  123.             (dest FC_dest) (pattern "FC#?") (infos)
  124.         )
  125.     )
  126. )
  127.  
  128. (complete 40)
  129.  
  130. ; get the Speller disk
  131. (askdisk
  132.     (prompt "Please insert the disk labeled \"FCSpeller\"")
  133.     (help    "The Final Copy Data Disk contains the Speller "
  134.             "support files.  They are to be copied from the "
  135.             "\"FCSpeller\" Disk on to your system.")
  136.     (dest "FCSpeller")
  137. )
  138.  
  139. ;copy the Final Copy Speller Data files drawer over
  140. (copyfiles
  141.     (source "FCSpeller:")
  142.     (dest FC_dest) (pattern "FC#?") (infos)
  143. )
  144.  
  145. (complete 60)
  146.  
  147. ; get the Thesaurus disk
  148. (askdisk
  149.     (prompt "Please insert the disk labeled \"FCThesaurus\"")
  150.     (help    "The Final Copy Data Disk contains the Thesaurus "
  151.             "support files.  They are to be copied from the "
  152.             "\"FCThesaurus\" Disk on to your system.")
  153.     (dest "FCThesaurus")
  154. )
  155.  
  156. ;copy the Final Copy Thesaurus Data files drawer over
  157. (copyfiles
  158.     (source "FCThesaurus:")
  159.     (dest FC_dest) (pattern "FC#?") (infos)
  160. )
  161.  
  162. (complete 80)
  163.  
  164. (if (> @user-level 1)
  165.     (set answer1
  166.         (askbool
  167.             (prompt "Do you wish to install the additional Outline fonts?")
  168.             (help    "The FCMoreFonts disk contains additional "
  169.                     "outline fonts that are similar to the native "
  170.                     "fonts on most PostScript® printers.  Saying YES "
  171.                     "will copy those fonts into the Final Copy PSFonts drawer")
  172.             (default 1)
  173.         )
  174.     )
  175.     (set answer1 1)
  176. )
  177.  
  178. (if answer1
  179.   (
  180.     (askdisk
  181.         (prompt "Please insert the disk labeled \"FCMoreFonts\"")
  182.         (help    "The FCMoreFonts disk contains additional "
  183.                 "outline fonts that are similar to the fonts "
  184.                 "native on most PostScript® printers.")
  185.         (dest "FCMoreFonts")
  186.     )
  187.  
  188.     (set answer2
  189.         (askbool
  190.             (prompt "Place all outline fonts in same drawer?\n"
  191.                 "Saying YES will place all of the outline fonts on these disks "
  192.                 "inside the same directory, making them easier to access.  "
  193.                 "Otherwise, these additional fonts will be installed in a "
  194.                 "separate directory named \"PSFonts\".")
  195.             (help "This will place the PostScript® similar fonts into "
  196.                 "the same directory as the original SoftWood outline fonts.  "
  197.                 "Otherwise, they will be placed in their own drawer, \"PSFonts\".")
  198.             (default 0)
  199.         )
  200.     )
  201.  
  202.     (if answer2
  203.         (set PS_dest (tackon FC_dest "FCFonts/SWOLFonts"))
  204.         (    (set PS_dest (tackon FC_dest "FCFonts/SWOLFonts/PSFonts"))
  205.             (makedir PS_dest (infos))
  206.         )
  207.     )
  208.  
  209.     (copyfiles
  210.         (prompt "Please select the outline fonts you wish to install")
  211.         (help @copyfiles-help)
  212.         (source "FCMoreFonts:PSFonts")
  213.         (dest PS_dest)
  214.         (confirm 1) (all)
  215.     )
  216.   )
  217. )
  218.  
  219. (complete 100)
  220.  
  221. (exit)
  222.